TYPE NetworkGroundwater TYPE(ReachGroundwater),POINTER :: branch (:) INTEGER :: nreach END TYPE NetworkGroundwater